VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsCanshu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
 Private jbqx As Integer
 Private Shubiaogdfx As Integer
 Private tongjiGuolv As Variant
Public Function getJbqx()
getJbqx = jbqx
End Function
Public Sub setJbqx(ByVal intjbqx As Integer)
jbqx = intjbqx
End Sub
Public Function getShubiaogdfx()
getShubiaogdfx = Shubiaogdfx
End Function
Public Sub setShubiaogdfx(ByVal gd As Integer)
Shubiaogdfx = gd
End Sub
Public Function gettongjiGuolv() As Variant
gettongjiGuolv = tongjiGuolv
End Function
Public Sub settongjiGuolv(ByVal gd As Variant)
If TypeName(gd) = "vbNull" Or TypeName(gd) = "vbInteger" Then
tongjiGuolv = 0
Else
tongjiGuolv = gd
End If
End Sub
Public Function isTongjiguolv(ByVal bg As String) As Boolean
    Dim f, i
    f = False
    If TypeName(tongjiGuolv) <> "vbInteger" Then
        For i = 0 To UBound(tongjiGuolv)
            If tongjiGuolv(i) = bg Then
                f = True
                Exit For
            End If
        Next
    End If
    isTongjiguolv = f
End Function
Private Sub Class_Initialize()
jbqx = 90
Shubiaogdfx = 0
tongjiGuolv = 0
End Sub

